CalendarLib.Time.Second.from_int 5;;

CalendarLib.Fcalendar.Precise.make 2011 08 12 05 32 (float_of_int (CalendarLib.Time.Second.from_int 5));;
CalendarLib.Fcalendar.Precise.make 2011 08 12 05 32 5.;;

CalendarLib.Fcalendar.Precise.Period.make 2011 08 12 05 32 (float_of_int (CalendarLib.Time.Second.from_int 5));;
CalendarLib.Fcalendar.Precise.Period.make 2011 08 12 05 32 5.;;

CalendarLib.Date.add 
  (CalendarLib.Fcalendar.Precise.make 2011 08 12 05 32 (float_of_int (CalendarLib.Time.Second.from_int 5))) 
  (CalendarLib.Date.Period.make 0 0 2);;

let d2 = CalendarLib.Fcalendar.Precise.add
  (CalendarLib.Fcalendar.Precise.make 2011 08 12 05 32 (float_of_int (CalendarLib.Time.Second.from_int 5)))
  (CalendarLib.Fcalendar.Precise.Period.make 0 0 2 0 0 (float_of_int (CalendarLib.Time.Second.from_int 0)))
;;

let initiale = CalendarLib.Printer.Precise_Fcalendar.from_fstring "%F %T" "2011-08-16 16:00:01";;

let initiale_2 = 
  CalendarLib.Fcalendar.Precise.add
    initiale
    (CalendarLib.Fcalendar.Precise.Period.make 0 0 2 0 0 (float_of_int (CalendarLib.Time.Second.from_int 0)))
;;
CalendarLib.Printer.Precise_Fcalendar.to_string initiale_2;;

CalendarLib.Printer.Precise_Fcalendar.to_string d2;;
  
